﻿
Module Module1

    Sub Main()
        'inicializar a bd
        Console.WriteLine("Escreva ""IniBD"" para criar a base de dados e ""IniBD com Dados""" + vbCrLf + " (Atenção se a bd ja existir não vai sofrer alteracoes): ")
        Dim letras As String = Console.ReadLine()
        If (letras.ToLower().Contains("inibd")) Then
            Using contextoBasedeDados As New Database.ContextoStandAuto()
                'forçar o contexto a criar'
                If (Not contextoBasedeDados.Veiculos.Any()) Then
                    If (letras.ToLower().Contains("dados")) Then
                        Entity.Database.SetInitializer(New Database.IniciarDadosTeste())
                        Dim initdados As New Database.IniciarDadosTeste()
                        initdados.InitializeDatabase(contextoBasedeDados)
                    End If
                End If
            End Using
        End If
    End Sub

End Module
